home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / sys / 2b_mv_os2_src.lha / MultiView Src / mv_guide.e < prev    next >
Encoding:
Text File  |  1999-02-16  |  1.6 KB  |  74 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE  'amigaguide',
  5.         'libraries/amigaguide'
  6.  
  7. ->  Procedura wyôwietlajâca via amigaguide.library
  8. ->  IN :
  9. ->      filename  -> nazwa pliku
  10. ->      os        -> wersja biblioteki
  11. ->      screen    -> nazwa ekranu publicznego na którym ma pokazaê
  12. ->
  13. ->  OUT :
  14. ->      success   -> udaîo sië pokazaê czyteû nie
  15. ->
  16.  
  17. PROC guide(filename : PTR TO CHAR,os,screen = NIL)
  18.  
  19.   DEF success,
  20.       file  [40]  : STRING,   -> nazwa pliku
  21.       path  [256] : STRING,
  22.       olddir[256] : STRING,
  23.       cmd   [200] : STRING,   -> Komenda
  24.       run   [512] : STRING,   -> Execute() string
  25.       myg         : newamigaguide,
  26.       pathlock
  27.  
  28.   amigaguidebase := OpenLibrary('amigaguide.library',os)
  29.  
  30.   IF amigaguidebase
  31.  
  32.     file    := FilePart(filename)
  33.     success := InStr(filename,file)
  34.  
  35.     IF success > NIL                        -> sprawdzam czy filename jest ze scieûkâ
  36.       MidStr(path,filename,NIL,success)
  37.       pathlock := Lock(path,OLDFILE)
  38.     ELSE
  39.       pathlock := NIL
  40.     ENDIF
  41.  
  42.     success := GetCurrentDirName(olddir,256)
  43.  
  44.     myg.lock       := pathlock
  45.     myg.pubscreen  := screen
  46.     myg.name       := filename
  47.     myg.screen     := NIL
  48.     myg.hostport   := NIL
  49.     myg.clientport := NIL
  50.     myg.basename   := NIL
  51.     myg.flags      := NIL
  52.     myg.context    := NIL
  53.     myg.extens     := NIL
  54.     myg.client     := NIL
  55.     myg.node       := NIL
  56.     myg.line       := NIL
  57.  
  58.     success := OpenAmigaGuideA(myg,NIL)
  59.  
  60.     IF success
  61.       CloseAmigaGuide(success)
  62.     ELSE
  63.       success := FALSE
  64.     ENDIF
  65.     IF pathlock THEN UnLock(pathlock)
  66.     IF amigaguidebase THEN CloseLibrary(amigaguidebase)
  67.  
  68.   ELSE
  69.     RETURN FALSE
  70.   ENDIF
  71.  
  72. ENDPROC success
  73.  
  74.